home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / geninput.zip / TEST.PAS < prev   
Pascal/Delphi Source File  |  1993-01-04  |  962b  |  40 lines
  1.  
  2. Program Test;
  3.  
  4. Uses CRT,
  5.      GENINPUT;
  6.  
  7. Const
  8.   PhoneMask:String[12] = 'XXX-XXX-XXXX';
  9.  
  10. Var
  11.   TestVar1: String[40];
  12.   TestVar2: STring[12];
  13.  
  14.  
  15. {$V-}
  16.  
  17. Begin
  18.  clrscr;
  19.  Writeln('This is a demo of the Geninput.tpu.  When called upon to ');
  20.  Writeln('data - enter whatever you like.  The TPU will recognize ');
  21.  Writeln('back arrow, backspace, and on masked input like the phone ');
  22.  Writeln('number - it will appropriately skip the dashes on data entry.');
  23.  gotoxy(10,10);
  24.  write('Input a varable here ');
  25.  TestVar1:='                                        ';
  26.  Inputit(wherex,wherey,TestVar1,FALSE);
  27.  TestVar2:=PhoneMask;
  28.  gotoxy(10,11);
  29.  Write('Input phone # here   ');
  30.  Inputit(wherex,wherey,TestVar2,TRUE);
  31.  Writeln;
  32.  Writeln;
  33.  Writeln('The first variable was  ',TestVar1);
  34.  Writeln('The Second variable was ',TestVar2);
  35.  Writeln;
  36.  Writeln;
  37.  Writeln('That is the demo folks!!!, Sorry there aint no more for free!');
  38. end.
  39.  
  40.